home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / disk / bakup / mrbk220.lha / Rexx / voice.mrbk < prev    next >
Text File  |  1991-01-12  |  1KB  |  64 lines
  1. /* voice.mrbk */
  2. /* This simple ARexx program runs tests MRBackup's voice capability. */
  3.  
  4. signal on ERROR
  5. signal on BREAK_C
  6.  
  7. options results
  8.  
  9. if ~(Show('P', 'MRBackup_#1')) then do
  10.     say "You must run MRBackup first. With a little work, you could"
  11.     say "get this ARexx script to do it for you."
  12.     exit 1
  13. end
  14.  
  15. address "MRBackup_#1"
  16.  
  17. poptofront
  18.  
  19. 'notealert "This test turns the voice option off and on."'
  20. 'setvoice "no"'
  21. if result ~= "OK" then do
  22.     say "I could not turn the voice option off!"
  23.     exit 1
  24. end
  25.  
  26. 'speak "You should not hear this message."'
  27. if result ~= "OK" then do
  28.     say "Attempt to speak failed."
  29.     exit 1
  30. end
  31.  
  32. call Delay(50)
  33.  
  34. 'setvoice "yes"'
  35. if result ~= "OK" then do
  36.     say "I could not turn the voice option on!"
  37.     exit 1
  38. end
  39.  
  40. 'speak "This message is being brought to you by Ay Rexx."'
  41. if result ~= "OK" then do
  42.     say "Attempt to speak failed."
  43.     exit 1
  44. end
  45.  
  46. exit 0
  47.  
  48. /*------------------------------------------------------------------*/
  49.  
  50. break_c:
  51.  
  52. say "*** Control-C recieved.  Stopped by user. ***"
  53. exit 5
  54.  
  55. /*------------------------------------------------------------------*/
  56.  
  57. error:
  58.  
  59. say "Error"
  60. exit 6
  61.  
  62. /*------------------------------------------------------------------*/
  63.  
  64.